home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / science / sm32a.zip / LIBRARY / EXPANDAL.LI < prev    next >
Text File  |  1993-12-26  |  222b  |  6 lines
  1. #  expandal() expand all numerators and denominators
  2. #  e.g. expandal((a+b)^2/(c+d)^2) gives (a^2+2*a*b+c^2)/(c^2+2*c*d+d^2)
  3.  
  4. expandal(a_+b_) := expandal(a)+expandal(b)
  5. expandal(x_) := expand(nume(x))/expand(deno(x))
  6.